# -*- cperl -*-

eval 'exec /emc/sgdb/runperl $0 $*'
    if 0 ;

use 5.6.0 ;
use warnings ;
use strict ;
use integer ;
use bytes ;

use Tk 'Ev';
my $mw = new MainWindow ;
$mw -> bind ( "<KeyPress>",
              [sub { print "@_\n" },
               K => Ev('K'),
               A => Ev('A'),
               N => Ev('N'),
               d => Ev('d'),
               k => Ev('k'),
               m => Ev('m'),
               s => Ev('s'),
              ]
            ) ;
$mw -> MainLoop() ;


__END__

use Data::Dumper ;

use Sancho::HostSyscalls 'snap' ;

my $san = new Sancho::HostSyscalls ;
my %res = $san -> sc_clone_register( 0x60 ) ;
print Dumper \%res ;


#   my $res = $san -> get_syscall( syscall_id => 0x8145,
#                                  data => pack ('x8N*',0x99, 0x10a ),
# #                                  access_ID => 0x12345678 ,
#                                 ) ;

__END__

use Sancho::TermCLI ;

our $s = new Sancho::TermCLI ;

$s -> addcoms ( [kaa => 'kaa sum ', 'kaa help ' , sub {print "hi kaa! \n"}, sub { ('aaa', 'bbbbb', 'cccccccc', 'cdddddddddddddd')} ],
                [kiii => 'kiii sum' , 'kiiii help', sub { print "hi kii\n"}, ],
              ) ;


$DB::single = 1 ;
$s -> cmdloop ;


